home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed9.d64 / equations a (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  278 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,0:POKEUX,0
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  31. 310 REM PROJECT DIRECTOR: FRANK WINTER
  32. 320 REM PROGRAM NAME: EQUATION
  33. 330 REM WRITTEN BY: C. G. ANDERSON
  34. 340 REM DEVELOPED AT: ROMEO MICRO-LAB
  35. 350 REM CONTRIBUTED TO PUBLIC DOMAIN BY         LOGICS ONE CONSULTANTS 2/10/80
  36. 360 REM REVISED BY: D. ARTHURS & A. WUNSCHE  '82
  37. 370 REM UPDATED BY: BILL CUMBERLAND '90
  38. 400 PRINT"[147]":POKEUT,UL%:POKEUY,0:POKEUX,0:POKE646,13
  39. 405 PRINT"             [201]NSTRUCTIONS [146]
  40. 410 [153]"  (null)OU WILL BE ASKED TO SOLVE EQUATIONS"
  41. 412 [153]"  WITH ONE VARIABLE OF THE TYPE 3X-5=7."
  42. 414 [153]"  (null)HE OBJECT OF THE PROGRAM IS THE"
  43. 416 [153]"  MENTAL SOLUTION OF THE EQUATION BY"
  44. 418 [153]"  DETERMINING THE VALUE FOR XWAIT THAT"
  45. 420 [153]"  MAKES THE EQUATION TRUE.
  46. 422 PRINT"  [217]OU WILL BE GIVEN 3 ATTEMPTS BEFORE"
  47. 424 PRINT"  THE CORRECT ANSWER IS GIVEN."
  48. 426 GOSUB830
  49. 428 PRINT"[153][147]  [201]F YOU FAIL IN THE 3 ATTEMPTS, YOU"
  50. 430 PRINT"  WILL BE SHOWN A COMPLETE SOLUTION "
  51. 432 PRINT"  OF THE PROBLEM."
  52. 434 PRINT"  E.G.,       3X - 5 = 7"
  53. 436 PRINT"   [193]DD 5 TO EACH SIDE [146]"
  54. 438 PRINT"    [210]ESULT:       3X = 12"
  55. 440 PRINT"   [196]IVIDE EACH SIDE BY 3 [146]"
  56. 442 PRINT"    [210]ESULT:        X = 4
  57. 444 [141]830
  58. 446 [153]"PRINTLOAD  (null)OME PROBLEMS HAVE THE VARIABLE TERM"
  59. 448 [153]"  ON THE RIGHT SIDE OF THE EQUATION"
  60. 450 [153]"  AND OCCASIONALLY THERE WILL BE A"
  61. 452 [153]"  VARIABLE ON BOTH SIDES."
  62. 455 [153]"  (null)HEN YOU FINISH, YOUR SCORE IS THE"
  63. 456 [153]"  NUMBER CORRECT ON THE FIRST TRY.":[141]592
  64. 458 [153]"              CHR$(null)(null)STR$CLOSE(null)(null)LEN(null)WAIT"
  65. 495 [141] 830:[142]
  66. 500 [143] <YES> SOUND
  67. 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  68. 510 [151]54296,15:[151]54277,42:[151]54278,250
  69. 515 [151]54276,23:[151]54273,23:[151]54272,191
  70. 520 [129]T[178]1[164]250:[130]:[151]54276,32:[129]T[178]1[164]300:[130]
  71. 525 [151]54296,0:[142]
  72. 530 [143] <YES> SOUND
  73. 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  74. 540 [151]54296,15:[151]54277,18:[151]54278,242
  75. 545 [151]54276,33:[151]54273,4:[151]54272,48
  76. 550 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  77. 555 [151]54296,0:[142]
  78. 560 [143] <BLIP> SOUND
  79. 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  80. 570 [151]54296,7:[151]54277,42:[151]54278,250
  81. 575 [151]54276,23:[151]54273,23:[151]54272,191
  82. 580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  83. 585 [151]54296,0:[142]
  84. 590 [129]TM[178]1[164]500:[130]:[142]
  85. 591 [129]TM[178]1[164]1000:[130]:[142]
  86. 592 [129]TM[178]1[164]2000:[130]:[142]
  87. 595 [129]TM[178]1[164]5000:[130]:[142]
  88. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,3
  89. 801 [153]"      A TPUG EDUCATIONAL PROGRAM":[141]590
  90. 802 [153]"           FOR C 64 COMPUTERS ":[141]590
  91. 803 [153]"                                        WAIT";
  92. 804 [153]"                                        WAIT";
  93. 805 [153]"               EQUATIONS                WAIT";
  94. 806 [153]"                                        WAIT";
  95. 807 [153]"                 - A -                  WAIT";
  96. 808 [153]"                                        WAIT";
  97. 809 [153]"                                        WAIT":[141]591:[141]560
  98. 810 [153]"           INSTRUCTIONS?  Y/N
  99. 811 GETR$:IFR$<>"Y"ANDR$<>"N"THEN811
  100. 812 IFR$="Y"THENGOSUB400
  101. 813 PRINT"[147]  AND AWAY WE GO ......":GOSUB591:GOSUB500:GOSUB590
  102. 814 GOTO1000
  103. 830 GOSUB591:GOSUB560
  104. 835 POKEUN,0:PRINTLEFT$(UD$,24);"[153] [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE [146][155]"
  105. 840 GETUI$:IFUI$<>" "THEN840
  106. 845 RETURN
  107. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  108. 855 PRINT" --------------------------------------"
  109. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"[193]NSWER, THEN PRESS [210][197][212][213][210][206][146]
  110. 865 UH[178]0:[153]"":[142]
  111. 875 [153][200](UD$,24);"           (null)NE MOMENT PLEASE...     ":[142]
  112. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  113. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  114. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  115. 905 UD$[178]"":UP$[178]"                                      "
  116. 906 UT$[178]" VALQUATION"
  117. 909 [142]
  118. 910 [141]900:[153]"LOAD "
  119. 920 [137]800
  120. 1000 [153]"LOAD"UC$;:[140]:[151]UY,0:[151]UX,0
  121. 1060 [151] UT,UL%:[153]"LOAD":UP[178]0:UG$[178]"":[143] GO[211]850
  122. 1360 [153]"      LEFT$OW MANY PROBLEMS WOULD":[153]
  123. 1370 [153]"      YOU LIKE TO SOLVE?   CMDCMD";
  124. 1385 US$[178]"1234567890":UL[178]2:[141] 35:E[178][197](UR$)
  125. 1387 [139] [201](UR$,1)[179][177]"H" [175] [200](UR$,1)[179][177]"H" [167] 1390
  126. 1388 [153]"ON                                       ":[137]1360
  127. 1390 [139]E[177]0[167]1420
  128. 1400 [153]:[153]:[153]"  (null)ESPONSE MUST BE GREATER THAN ZERO WAIT"
  129. 1405 [129]I[178]1[164]1000:[130]
  130. 1408 [153]"ON                                       "
  131. 1410 [137]1360
  132. 1420 R[178]0
  133. 1430 [129]I[178]1[164]E:[153]"":[141]875
  134. 1440 X[178][181]([187](1)[172]21)[171]10
  135. 1450 [139]X[178]0[167]1440
  136. 1460 Y[178][181]([187](1)[172]41)[171]20
  137. 1470 Z[178][181]([187](1)[172]41)[171]20
  138. 1480 T[178][181]([187](1)[172]10)[170]1
  139. 1490 [139]T[171]X[178]0[176]T[170]X[178]0[167]1440
  140. 1500 D[178]X[170]T:F[178]X[171]T
  141. 1510 A$[178][196](X):D$[178][196](T):E$[178][196](D):F$[178][196](F)
  142. 1520 L$[178]A$
  143. 1530 [139]X[171]T[178][171]1[167]F$[178]"-"
  144. 1540 [139]X[170]T[178][171]1[167]E$[178]"-"
  145. 1550 [139]X[171]T[178]1[167]F$[178]" "
  146. 1560 [139]X[170]T[178]1[167]E$[178]" "
  147. 1570 [139]X[178][171]1[167]A$[178]"-"
  148. 1580 [139]X[178]1[167]A$[178]" "
  149. 1590 [139]T[178]1[167]D$[178]" "
  150. 1600 B$[178][196](Y):C$[178][196](Z)
  151. 1610 [139](Z[171]Y)[173]X[178][181]((Z[171]Y)[173]X)[167]1630
  152. 1620 [137]1440
  153. 1630 UG$[178]"(null)UESTION #":UP[178]I[171]1:[141] 850:[141]590:[141]560:[153] "";
  154. 1640 B[178][181]([187](1)[172]3)[170]1
  155. 1650 [139]Y[179]0[167]1730
  156. 1660 [145]B[137]1670,1690,1710
  157. 1670 [153]A$;"X +";B$;" =";C$;
  158. 1680 [137]1810
  159. 1690 [153]C$;" =";A$;"X +";B$;
  160. 1700 [137]1810
  161. 1710 [153]E$;"X +";B$;" =";C$;" +";D$;"X";
  162. 1720 [137]1810
  163. 1730 B$[178][196]([171]Y)
  164. 1740 [145]B[137]1750,1770,1790
  165. 1750 [153]A$;"X -";B$;" =";C$;
  166. 1760 [137]1810
  167. 1770 [153]C$;" =";A$;"X -";B$;
  168. 1780 [137]1810
  169. 1790 [153]F$;"X -";B$;" =";C$;" -";D$;"X";
  170. 1800 [137]1810
  171. 1810 [129]M[178]1[164]3
  172. 1820 W[178]UP:[153] [163]25);"X = ";:US$[178]"1234567890-H":UL[178]3:[141] 35:C[178][197](UR$)
  173. 1821 F1[178]0:[129]UI[178]1[164][195](UR$)
  174. 1822 [139][202](UR$,UI,1)[178]"H"[176]UI[177]1[175][202](UR$,UI,1)[178]"-"[167]F1[178]1
  175. 1823 [130]:[139] F1[178]1[167][153] [163]27);"ON      CMDCMDCMDCMDCMDCMDON":[137]1820
  176. 1825 UP[178]W
  177. 1830 [153]
  178. 1840 [139]C[179][177](Z[171]Y)[173]X[167]1900
  179. 1850 [141]2030
  180. 1860 [153]"                                      "
  181. 1865 [153]"ON";[163](40[171][195](R$))[173]2);R$
  182. 1870 [141] 830
  183. 1880 [139]C[178](Z[171]Y)[173]X[175]M[178]1[167]R[178]R[170]1
  184. 1890 [137]1970
  185. 1900 [141]2120
  186. 1910 [153]"                                  "
  187. 1911 [153]"ON";[163](40[171][195](R$))[173]2);R$
  188. 1912 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  189. 1913 [141]830:[141]860
  190. 1914 [151]U1,U1%:[151]U2,U2%:[151]U3,U3%:[151]U4,U4%
  191. 1915 [153]"ON                                      "
  192. 1916 [153]"ONONONONON";[163]26);"      CMDCMDCMDCMDCMDCMDCMDCMDCMD";
  193. 1920 [130]M
  194. 1930 [153]"        (null)HE ANSWER IS ";(Z[171]Y)[173]X;"CMD.      ":[153]
  195. 1940 [153]:[153]"        (null)OULD YOU LIKE TO":[141]560:[141]560
  196. 1944 [153]"        SEE THE SOLUTION? (Y/N)";
  197. 1946 US$[178]"YN":UL[178]1:[141] 35:M$[178]UR$
  198. 1950 [139] M$[178]"Y"[167] [141]2210
  199. 1970 [130]I
  200. 1975 UG$[178]"(null)CORE":UP[178]0:UH[178]1:[141]850
  201. 1980 [153]" (null)OU HAVE";R;"CORRECT OUT OF";E;"TRIES."
  202. 1985 [141]591:[141]560:[153]" (null)OULD YOU LIKE TO TRY AGAIN?";
  203. 1990 [153]"           (Y/N)
  204. 1995 US$="YN":UL=1:GOSUB 35:X$=UR$
  205. 2000 IF X$="Y"THEN RESTORE:GOTO1060
  206. 2002 REM
  207. 2004 PRINT"[147] [210]ETURNING TO THE DISK MENU."
  208. 2006 LOAD"MENU",8
  209. 2008 RUN
  210. 2010 END
  211. 2020 REM PRAISE LOOP
  212. 2030 K=INT(RND(1)*10)+1
  213. 2035 GOSUB500
  214. 2040 FORJ=1TOK
  215. 2050 READR$
  216. 2060 NEXTJ
  217. 2070 RESTORE
  218. 2080 RETURN
  219. 2090 DATA"[214]ERY GOOD","[212]HAT'S RIGHT","[195]ORRECT","[206]ICE WORK","[197]XCELLENT"
  220. 2100 DATA"[212]ERRIFIC","[211]UPER","[198]ANTASTIC","[199]REAT","[217]ES"
  221. 2110 REM UNPRAISE LOOP
  222. 2120 K=INT(RND(1)*10)+11
  223. 2130 FORL=1TOK
  224. 2140 R$="[201]NCORRECT.":IF M<3 THEN R$=R$+"  [208]LEASE TRY AGAIN"
  225. 2150 NEXTL
  226. 2155 GOSUB530
  227. 2160 RESTORE
  228. 2170 RETURN
  229. 2180 DATA"[211]ORRY","[212]OO BAD","[201]NCORRECT","[206]O","[215]RONG"
  230. 2190 DATA "[212]HAT'S NOT RIGHT","[212]HAT'S WRONG","[194]ETTER LUCK NEXT TIME","[211]ORRY"
  231. 2195 DATA "[201]NCORRECT"
  232. 2200 REM SOLUTIONS SUBROUTINE
  233. 2210 ZZ=UP:UP=YY:UG$="[193]NSWER #":GOSUB 850:YY=UP:UP=ZZ
  234. 2215 PRINT"":ONBGOTO2220,2360,2500
  235. 2220 IFY<0THEN2260
  236. 2230 PRINT"  [208]ROBLEM:     ";A$;"X +";B$;" =";C$:PRINT
  237. 2240 PRINT"       [211]UBTRACT ";B$;" FROM EACH SIDE[146]":PRINT
  238. 2250 GOTO2290
  239. 2260 B$=STR$(-Y)
  240. 2270 PRINT"  [208]ROBLEM:     ";A$;"X -";B$;" =";C$:PRINT
  241. 2280 PRINT"          [193]DD ";B$;" TO EACH SIDE[146]":PRINT
  242. 2290 W=Z-Y:G$=STR$(W)
  243. 2300 PRINT"  [210]ESULT:        ";A$;"X =";G$:PRINT
  244. 2310 IFX=1THEN2590
  245. 2320 PRINT"         [196]IVIDE EACH SIDE BY ";L$:PRINT
  246. 2330 S=W/X:S$=STR$(S)
  247. 2340 PRINT"  [210]ESULT:         X =";S$
  248. 2350 GOTO2590
  249. 2360 IFY<0THEN2400
  250. 2370 PRINT"  [208]ROBLEM:     ";C$;" =";A$;"X +";B$:PRINT
  251. 2380 PRINT"       [211]UBTRACT ";B$;" FROM EACH SIDE[146]":PRINT
  252. 2390 GOTO2430
  253. 2400 B$=STR$(-Y)
  254. 2410 PRINT"  [208]ROBLEM:     ";C$;" =";A$;"X -";B$:PRINT
  255. 2420 PRINT"          [193]DD ";B$;" TO EACH SIDE[146]":PRINT
  256. 2430 W=Z-Y:G$=STR$(W)
  257. 2440 PRINT"  [210]ESULT:        ";G$;" =";A$;"X":PRINT
  258. 2450 IFX=1THEN2590
  259. 2460 PRINT"         [196]IVIDE EACH SIDE BY ";L$:PRINT
  260. 2470 S=W/X:S$=STR$(S)
  261. 2480 PRINT"  [210]ESULT:         ";S$;" = X"
  262. 2490 GOTO2590
  263. 2500 IFY<0THEN2550
  264. 2510 PRINT"  [208]ROBLEM:  ";E$;"X +";B$;" =";C$;" +";D$;"X":PRINT
  265. 2520 PRINT"       [211]UBTRACT ";D$;"X FROM EACH SIDE[146]":PRINT
  266. 2530 PRINT"  [210]ESULT:    ";A$;"X +";B$;" =";C$:PRINT
  267. 2540 GOTO2240
  268. 2550 PRINT"  [208]ROBLEM:  ";F$;"X -";B$;" =";C$;" -";D$;"X":PRINT
  269. 2560 PRINT"          [193]DD ";D$;"X TO EACH SIDE":PRINT
  270. 2570 PRINT"  [210]ESULT:    ";A$;"X -";B$;" =";C$:PRINT
  271. 2580 GOTO2280
  272. 2590 GOSUB830:RETURN
  273. 2600 REM PAUSE ROUTINE
  274. 2610 GOSUB83O
  275. 2640 RETURN
  276. 2650 GOTO  800
  277. 3000 REM WHC  90:12:06
  278.